import "mod_draw";
import "mod_key";
import "mod_map";
import "mod_math";
import "mod_proc";
import "mod_grproc";
import "mod_screen";
import "mod_text";
import "mod_file";
import "mod_video";
import "mod_debug";
import "mod_say";
import "mod_sound";
import "mod_wm";
import "mod_rand";
import "mod_path";

//---------------------------------------------------------------------------------------
CONST

	SCREEN_X	= 640;
	SCREEN_Y	= 480;

END

//---------------------------------------------------------------------------------------
include "prg/funciones.prg";
include "prg/ts.prg";
include "prg/camino.prg";
include "prg/cursor.prg";
include "prg/unidades.prg";

//---------------------------------------------------------------------------------------
BEGIN
	// inicializo parametros
	//scale_mode = SCALE_NOFILTER;
	set_title("Tiled Scroll Engine");
	set_mode(SCREEN_X, SCREEN_Y, 16, MODE_WINDOW + MODE_WAITVSYNC);
	set_fps(60,0);

	//carga el mapa
	load("maps/map1.dat", map);
	
	//cargo graficos
	gui_fpg = load_fpg ( "fpg/gui.fpg" );
	
	//inicio procesos
	tsManager(0, 0, SCREEN_X, SCREEN_Y);
	cursor();
	
	unidad();
	unidad();
	unidad();
	unidad();
	unidad();
	unidad();
	unidad();
	unidad();
	
	// muestra posicion actual del scroll
	varMonitor(0, 10, "ts.pos.x", &ts.pos.x);
	varMonitor(0, 20, "ts.pos.y", &ts.pos.y);
	write_var(0,0,0,0,fps);

	// bucle principal del juego
	LOOP
	
		IF ( key ( _esc ) )
			exit();
		END
	
		frame;
		
	END
	
END
